Top 10k strings from Trader (1990)(F. Shillito).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
6 ocost=cost 6 cost=cost+ 6 ;Z$;Z$;Z$;Z$ 5 cost=ocost 5 (q(x)*p(x)): 4 loss=loss+(ocost-cost) 4 duty=duty+ 4 (q(x)*p(x)/10 3 w(l,a)=w(l,a)+x 3 ;"------"; 2 w(l,a)=w(l,a)-x 2 s(l,a)=s(l,a)-x 2 s(l,a)=s(l,a)+x 2 q(a)=q(a)-x 2 q(a)=q(a)+x 2 move w/h to hold 2 move w/h to cave 2 move cave to w/h 2 move cave to hold 2 X>((C*4000 2 ;"or ZERO to quit." 2 ;"You have been CONVICTED of"; 2 ;"You have `";b;" in cash." 2 ;"You are SENTENCED to"; 2 ;"Maintenance"; 2 ;"Is it a deal? (y/n)" 2 ;" "; 2 *********************** 1 w(l,a)=w(l,a)-X 1 w(l,a)=w(l,a)+s(l,a) 1 w(l,a)=w(l,a)+q(a) 1 set up UDG's ********** 1 sale=sale+(p(a)*x) 1 s(l,a)=s(l,a)+w(l,a) 1 s(l,a)=s(l,a)+q(a) 1 rem=b-disb 1 q(a)=q(a)+w(l,a) 1 q(a)=q(a)+s(l,a) 1 prof=sale-cost-mtce-duty-fine-wage-loss 1 print trading a/c 1 pirate flag 1 move hold to w/h ****** 1 move hold to w/h 1 move hold to cave ***** 1 move hold to cave 1 move goods ************ 1 min=o-(c*5000 1 min=o-(5000 1 loss=loss+x: 1 loss=loss+cost+(4000 1 loss=loss+cost 1 loss=loss+(ocost-cost)+b: 1 look for pirates ****** 1 has been confiscated." 1 fine=fine+cost 1 fine=fine+(s(l,a)*p(a)): 1 fine=fine+(ocost-cost) 1 fine=fine+(1000 1 draw map ************** 1 disb=mtce+min+wage+duty 1 cost=ocost: 1 cost=cost+(q(x)*p(x)): 1 cost=cost+(p(x)*q(x)): 1 cost=cost+(p(a)*x) 1 copy screen *********** 1 caught moving ********* contraband 1 cash reqiurements ***** 1 bulk move of goods **** 1 boat sold ; no hold *** 1 b=b-mtce-wage 1 b=b-(x*1000 1 b=b-(p(a)*x) 1 b=b+(p(a)*x) 1 b-mtce-wage<0 1 a;" ";b$(a); 1 WAIT LOOP ************* 1 VOYAGE **************** 1 VISIT BANK ************ 1 TRADER 1 THE Revenue Men have just left." 1 SMUGGLE *************** 1 SET SAIL ************** 1 SELL GOODS ************ 1 REPAY MONEY *********** 1 Pirates around ******** 1 Pay duty ************** 1 PRINT PRICES ********** 1 PRINT HEADINGS ******** 1 PRINT FINANCIAL STATUS* 1 PRICE NOT ADJUSTED FOR HOME COMMODITY 1 P(A)=P(A)+(( 1 NUMERICS ************** 1 LOSE ALL CARGO 1 LOSE 3/4 CARGO 1 LOSE 1/4 CARGO 1 LOSE 1/2 CARGO 1 INITIALISE ************ 1 GUILTY **************** 1 Forced aground ******** 1 FREE ****************** 1 FIX PRICE ************* 1 F.SHILLITO 1990. 1 ESCAPED *************** 1 END of game *********** 1 CAUGHT **************** 1 C$(A,L)*P(A)*(( 1 BUY GOODS ************* 1 BRIBE OK ************** 1 BRIBE ***************** 1 BORROW MONEY ********** 1 ARRIVE AT PORT ******** 1 ;z$;z$;z$;z$;z$;z$;z$ 1 ;z$;z$;z$;z$;z$;z$ 1 ;z$;z$;z$;z$; 1 ;a;". ";b$(a);" `";p(a); 1 ;"your cashbox & charts when a" 1 ;"you have been granted"; 1 ;"with your Cargo; So much so"; 1 ;"value of your boat) prior to"; 1 ;"unloaded into the Cave."; 1 ;"to",,," Days"; 1 ;"to avoid capsizing." 1 ;"tip-off have raided your cave."; 1 ;"times the Class of your Boat." 1 ;"the attention of the"; 1 ;"that they have taken all"; 1 ;"special overdraft facilities."; 1 ;"some of the balance is"; 1 ;"seven days imprisonment." 1 ;"seven days imprisonment"; 1 ;"seeking new crew." 1 ;"sailing." 1 ;"requires 5 extra men." 1 ;"reach ";a$(d);" in ";x;" days." 1 ;"rare blend of SKILL,"; 1 ;"or will you PAY DUTY?" 1 ;"only half your cargo"; 1 ;"of your cargo to avoid capsize." 1 ;"of life."; 1 ;"of days so"," go Delay voyage far"; 1 ;"now in the Navy." 1 ;"massive wave dragged your"; 1 ;"loans, but do require that"; 1 ;"it will come equipped with a"; 1 ;"it opens tommorow (y/n)?" 1 ;"is added to your overdraft."; 1 ;"is a game of high ADVENTURE."; 1 ;"in the future." 1 ;"have been confiscated." 1 ;"for sale down at the Harbour." 1 ;"for each offence and"; 1 ;"for each Trading day and"; 1 ;"draft to `";c*4000 1 ;"do you wish to sell?" 1 ;"days as possible." 1 ;"crew of 5 men."; 1 ;"credit limit."; 1 ;"cleared." 1 ;"cleared before Sailing." 1 ;"cash to meet this demand,"; 1 ;"capsized in 20 fathoms." 1 ;"boat out to sea where it "; 1 ;"boarded by "; 1 ;"before you can buy another." 1 ;"based on the length of Voyage,"; 1 ;"attempting to avoid payment of"; 1 ;"at force ";W 1 ;"and your boat is listing badly."; 1 ;"and of B R I B I N G the"; 1 ;"and includes their keep." 1 ;"and can provide spontaneous"; 1 ;"aground in gale force winds."; 1 ;"above accounts have been"; 1 ;"`250,000 in as few Trading"; 1 ;"`";x;" stolen in the Tavern." 1 ;"Your voyage is progressing well." 1 ;"Your score is ";a 1 ;"Your objective is to earn"; 1 ;"Your men are paid `1 per day,"; 1 ;"Your cash has been adjusted." 1 ;"Your cargo hold is over-full"; 1 ;"Your boat has been forced"; 1 ;"Your Bankers are very helpful"; 1 ;"Your Accounts have been adjusted" 1 ;"You'll get your feet wet."; 1 ;"You will not be so lucky"; 1 ;"You must sell your class ";c;" Boat"; 1 ;"You must not sell it." 1 ;"You may buy a class ";a;" Boat." 1 ;"You may borrow up to `4000"; 1 ;"You may borrow up to `";((C*4000 1 ;"You may be charged with"; 1 ;"You made `";b;" in ";t;" days." 1 ;"You just managed to recover"; 1 ;"You have to jettison" 1 ;"You have the honour of being"; 1 ;"You have the best"; 1 ;"You have no Boat to sell." 1 ;"You have made your fortune." 1 ;"You have insufficient funds." 1 ;"You have had to jettison 10%"; 1 ;"You have exceeded your"; 1 ;"You have chosen level ";a 1 ;"You have been delayed one day." 1 ;"You have been boarded by the"; 1 ;"You have a class ";c;" Boat." 1 ;"You evaded the Revenue Men."; 1 ;"You do not have enough cash." 1 ;"You cannot sail until the"; 1 ;"You cannot afford a new Boat." 1 ;"You can afford "; 1 ;"You beat the target of `250,000." 1 ;"You are required to pay"; 1 ;"You are now free." 1 ;"You are nearing ";a$(d) 1 ;"You are in"; 1 ;"You are in ";a$(l) 1 ;"You are delayed ";x;" days"; 1 ;"You are becalmed." 1 ;"You already have a Boat." 1 ;"You MUST reduce your over-"; 1 ;"You & your crew eventually"; 1 ;"Would you like a print (y/n)?" 1 ;"Will you:",,,," 1. Come quietly,"," 2. RISK a BRIBE" 1 ;"Why not buy a Boat?" 1 ;"Which item do you wish to move?" 1 ;"Which commodity? (ENTER 1-8)"; 1 ;"Which Commodity? (choose 1-8)"; 1 ;"When you buy your new boat"; 1 ;"What is your destination?" 1 ;"What do you wish to do?" 1 ;"Wait and see!" 1 ;"WELCOME TO ";: 1 ;"Trading"," to"; 1 ;"Trading days = ";t 1 ;"To succeed you require that"; 1 ;"To play again just ......." 1 ;"They were quite impressed" 1 ;"There were ";X; 1 ;"There is a nice class ";-c+1 1 ;"The wind is now blowing"; 1 ;"The previous high was ";hi 1 ;"The contents of your cave"; 1 ;"The Revenue men working on a"; 1 ;"The Market price is `";(5000 1 ;"The Market price is `";(4000 1 ;"The Bank is not open today." 1 ;"TRADING ACCOUNT FOR VOYAGE"; 1 ;"TOBACCO." 1 ;"THIS IS A NEW RECORD..WELL DONE." 1 ;"T R A D E R"; 1 ;"T R A D E R" 1 ;"T R A D E R ." 1 ;"T R A D E R "; 1 ;"Some of your crew are"; 1 ;"Smuggled cargo must be"; 1 ;"Select the movement" 1 ;"Sale of Cargo"; 1 ;"STARTING POSITION." 1 ;"SMUGGLE your cargo ashore"; 1 ;"S T A T U S R E P O R T."; 1 ;"S M U G G L I N G."; 1 ;"S M U G G L I N G"; 1 ;"S M U G G L E R.",,," Voyage from "; 1 ;"S E L L I N G" 1 ;"Revenue Men." 1 ;"Repay at least `";min 1 ;"R E V E N U E M E N."; 1 ;"R E V E N U E M E N." 1 ;"Print Trading A/c & Status"; 1 ;"Press any key to continue" 1 ;"Please select level of play."; 1 ;"PUBLISHED BY "; 1 ;"PROFIT/LOSS"; 1 ;"PROCESSING" 1 ;"PRESS-GANG raided the Tavern."; 1 ;"PRESS A KEY" 1 ;"PIRATES."; 1 ;"PAYMENT OF EXCISE DUTY" 1 ;"PAYING YOUR MEN" 1 ;"Overdraft = `";o; 1 ;"Otherwise you may attract"; 1 ;"Oh and all your CASH!!" 1 ;"No-one wants to buy your Boat." 1 ;"Min.repayment"; 1 ;"M O V I N G."; 1 ;"Losses on Voyage"; 1 ;"Level of play = ";(diff-.7 1 ;"Less Cost of Cargo"; 1 ;"LUCK and DARING."; 1 ;"Interest is 1% (compound)"; 1 ;"How much do you wish to repay?"; 1 ;"How much do you wish to borrow?" 1 ;"How many do you wish to buy?" 1 ;"How many cases of ";b$(a)'" do you wish to move?" 1 ;"How many cases of ";B$(A); 1 ;"Helmsman there was no loss"; 1 ;"HOLD CAVE W/HSE" 1 ;"H O L D!" 1 ;"GOLD, BRANDY, WHISKEY &"; 1 ;"FORECAST - Wind force"; 1 ;"Excise Duty of `";duty 1 ;"Each increase in class"; 1 ;"EMPTY HOLD" 1 ;"E X C I S E D U T Y." 1 ;"During your stop-over you had"; 1 ;"During your stop-over a"; 1 ;"Due to the skill of the" 1 ;"Do you wish to delay until"; 1 ;"Do you wish to continue (y/n)?": 1 ;"Do you require a copy? (y/n)" 1 ;"Do you intend to"; 1 ;"Disbursments"; 1 ;"DUTY PAID - Thank you." 1 ;"Class of Boat = ";(c 1 ;"Choose:",,,," 1. PAY DUTY"'" 2. SMUGGLE" 1 ;"Choose"''"1-8 for individual item"'" 9 for all items"'"ZERO to quit." 1 ;"Choose 1-8 or ZERO to quit." 1 ;"Choose 1-6 or ZERO to quit" 1 ;"Choose 1-3 or ZERO to quit." 1 ;"Cash remaining"; 1 ;"Cash in hand"; 1 ;"Cash in hand = `";b; 1 ;"COPYRIGHT WARNING" 1 ;"CONGRATULATIONS" 1 ;"COMMODITY PRICES" 1 ;"CASH REQUIREMENTS FOR VOYAGE"; 1 ;"Bribes/Fines"; 1 ;"Boat can endure force",,," Will you:",,,," 1. Continue the voyage"," 2. Put in to a safe Harbour" 1 ;"Boat available."; 1 ;"Because you pleaded Guilty"; 1 ;"BANK INTEREST" 1 ;"B U Y I N G" 1 ;"As you have insufficient"; 1 ;"ALL your cargo" 1 ;"ALL your cargo is confiscated." 1 ;"A Class 1 Boat requires a"; 1 ;"9. List Rules" 1 ;"8. Concede & restart" 1 ;"8 Turkey " 1 ;"75% of your cargo" 1 ;"7. SAVE Game"; 1 ;"7 Egypt "; 1 ;"6. Set Sail"; 1 ;"6, WAREHOUSE to HOLD" 1 ;"6 Barbary"; 1 ;"50% of your cargo" 1 ;"5. Visit Bank or"; 1 ;"5, WAREHOUSE to CAVE"; 1 ;"5 Ireland"; 1 ;"4. Sell Boat"; 1 ;"4, CAVE to HOLD"; 1 ;"4 Spain "; 1 ;"3. Print Voyage Trading Report" 1 ;"3. Buy Boat"; 1 ;"3, CAVE to WAREHOUSE"; 1 ;"3 Holland"; 1 ;"25% of your cargo" 1 ;"2. Sell Goods"; 1 ;"2. Repay money"; 1 ;"2, HOLD to WAREHOUSE"; 1 ;"2 France "; 1 ;"1. Buy Goods"; 1 ;"1. Borrow money"; 1 ;"1, HOLD to CAVE"; 1 ;"1 England"; 1 ;"1 (Novice) to 5 (Expert)." 1 ;"0. Move & store Goods"; 1 ;", (the sale"; 1 ;"* WARNING" 1 ;" level class cash over-of play of boat in hand draft"; 1 ;" Revenue Men to BRIBE" 1 ;" Press any key to continue. ": 1 ;" ";z$;z$;z$;z$;z$ 1 4 OSU M- 1 4 OSU M 1 ,,,,"F.SHILLITO 1990 LTD ": 1 ,," Goods can be bought and sold only at a Warehouse.",,,"You can store Goods in 3 places:",,"1, In the HOLD of your Boat 2, In a CAVE at any of the eight Ports and/or 3, In the WAREHOUSE at any of the eight Ports" 1 )="WHISKEY" 1 )="TURKEY" 1 )="TOBACCO" 1 )="SPICES" 1 )="RELICS" 1 )="PERFUME" 1 )="IRELAND" 1 )="HOLLAND" 1 )="FRANCE" 1 )="ENGLAND" 1 )="BRANDY" 1 )="BARBARY" 1 )="76747210" 1 )="76747201" 1 )="54525022" 1 )="32303244" 1 )="11230577" 1 )="11032577" 1 )="10121466" 1 )="01131577" 1 (p(a)*q(a)): 1 (b/p(a));" cases."; 1 ((((b-250000 1 ''''"1. Boats range from class 1-5 2. Sell for `4000 * class 3. Buy for `5000 * class 4. Buy/Sell once per voyage 5. You can only buy a boat 1 class higher than the last." 1 ''"1. You may SMUGGLE or pay DUTY. 2. DUTY is 10% of cargo cost. 3. If you SMUGGLE you may get away with it."'"4. If caught you may wish to come quietly and suffer certain penalties."'"5. You may choose to BRIBE the Revenue Men;"'" If it works you are free; If it fails .........Well!!" 1 ''"1. Maintenance costs"'" `100 * class per voyage." 1 ''"1. ENGLAND TOOLS 5- 25 2. FRANCE PERFUME 10- 75 3. HOLLAND TOBACCO 50- 250 4. SPAIN BRANDY 75- 350 5. IRELAND WHISKEY 100- 500 6. BARBARY GOLD 500-1000 7. EGYPT RELICS 1-1000 8. TURKEY SPICES 200- 800" 1 ''" The price of each commodity is"'" fixed within a range for its 1 "will rigorously protect the copy": 1 "unauthorised copying, hiring,": 1 "strictly prohibited." 1 "and lending of this software is": 1 "SMUGGLER" 1 "6. Beware of Pirates." 1 "5. Gale force winds can run you aground." 1 "4. Sheltering from high winds will cause delay; Risking it may lead to loss of cargo." 1 "3. Note wind forecasts." 1 "2. Voyages are 1-7 days." 1 "-right, of TRADER. Please note": 1 "'" Home Port and is modified to"'" reflect the number of days"'" sailing from the Home Port"'" and a market variation factor." 1 " MOVEMENT OF GOODS - ";a$(l) 1 " BUYING OR SELLING A BOAT." 1 " SMUGGLING" 1 " SAILING." 1 " PRICE RANGES" 1 FORD SHILLITO"